home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSMENU.PRG < prev    next >
Encoding:
Text File  |  1986-08-14  |  4.4 KB  |  137 lines
  1. * Program..: PSMENU.PRG
  2. * Author...: Maj Jim McMurry
  3. * Date.....: 07/12/86
  4. * Notice...: Copyright 1986, All Rights Reserved
  5. * Notes....: A Sub-Routine to print the main menu for pSSSt
  6. *            From an idea from Mac 'Mac'Feggan
  7. * Reserved.:
  8. *
  9. *
  10. DO CASE
  11.    CASE gmodel = 'Z'
  12.       STORE CHR(27)+CHR(112) TO rvideo
  13.       STORE rvideo + ' ' to rvideo
  14.       STORE CHR(27)+CHR(113) TO nvideo
  15.       STORE CHR(27)+CHR(70) TO grafon
  16.       STORE CHR(27)+CHR(71) TO grafoff
  17.       STORE CHR(27)+CHR(120)+CHR(53) TO gcuroff
  18.       STORE CHR(27)+CHR(121)+CHR(53) TO gcuron
  19.       ? gcuroff
  20.       * --- a global line maker
  21.       STORE 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa'+;
  22.             'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' TO gline
  23.       STORE 'f' + $(gline,1,76) + 'c' TO topln
  24.       STORE 'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii';
  25.            +'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii' TO filln
  26.       STORE '`' TO vert
  27.       STORE 'e' + $(gline,1,76) + 'd' TO btmln
  28.       @ 1, 0 SAY grafon + topln + grafoff
  29.       STORE 2 TO line
  30.       DO WHILE line <= 18
  31.          @ line,0 SAY grafon+vert+grafoff
  32.          @ line,2 SAY grafon + filln + grafoff
  33.          @ line,77 SAY grafon + vert + grafoff
  34.          STORE line + 1 TO line
  35.       ENDDO
  36.       @ 19, 0 SAY grafon + btmln + grafoff
  37.       STORE 'f' + $(gline,1,13) + 'c' TO topln
  38.       STORE '`' TO vert
  39.       STORE 'e' + $(gline,1,13) + 'd' TO btmln
  40.       STORE '             ' TO filln
  41.       STORE grafon + gline + grafoff to gline
  42.    CASE gmodel = 'I'
  43.       STORE ' ' TO RVIDEO
  44.       STORE ' 'TO NVIDEO
  45.       STORE ' ' TO gcuroff
  46.       STORE ' ' TO gcuron
  47.       STORE CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205) TO gline
  48.       STORE gline + gline + gline + gline TO gline
  49.       STORE gline + gline + gline + gline to gline
  50.       STORE $(gline,1,78) TO gline
  51.       STORE CHR(201) + $(gline,1,78) + CHR(187) TO topln
  52.       STORE CHR(177)+CHR(177)+CHR(177)+CHR(177)+CHR(177) TO filln
  53.       STORE filln + filln + filln + filln + filln TO filln
  54.       STORE filln + filln + filln + CHR(177)  TO filln
  55.       STORE CHR(186) + ' ' + filln + ' ' + CHR(186) TO filln
  56.       STORE CHR(200) + $(gline,1,78) + CHR(188) TO btmln
  57.       @ 1, 0 SAY topln
  58.       STORE 2 TO line
  59.       DO WHILE line <= 18
  60.          @ line, 0 SAY filln
  61.          STORE line + 1 TO line
  62.       ENDDO
  63.       @ 19, 0 SAY btmln
  64.       STORE CHR(201) + $(gline,1,13) + CHR(187) TO topln
  65.       STORE CHR(186) TO vert
  66.       STORE CHR(200) + $(gline,1,13) + CHR(188) TO btmln
  67.       STORE '             ' TO filln
  68.    CASE gmodel = 'O'
  69.       STORE ' ' TO gcuron
  70.       STORE ' ' TO gcuroff
  71.       STORE ' ' TO grafon
  72.       STORE ' ' TO grafoff
  73.       STORE ' ' TO rvideo
  74.       STORE ' ' TO nvideo
  75.       STORE ' ' TO topln
  76.       STORE ' ' TO btmln
  77.       STORE ' ' TO vert
  78.       STORE ' ' TO filln
  79.       STORE '----------------------------------------';
  80.            +'----------------------------------------' TO gline
  81. ENDCASE
  82. DO CASE
  83. CASE gmodel = 'Z'
  84.    @ 4,30 SAY ' ' + grafon + topln + grafoff + ' '
  85.    @ 5,30 SAY ' ' + grafon + vert + grafoff
  86.    @ 5,45 SAY grafon + vert + grafoff + ' '
  87.    @ 6,30 SAY ' ' + grafon + btmln + grafoff + ' '
  88.    @ 5,32 SAY filln
  89. CASE gmodel = 'I'
  90.    @ 4,31 SAY topln
  91.    @ 5,31 SAY vert
  92.    @ 5,45 SAY vert
  93.    @ 6,31 SAY btmln
  94.    @ 5,32 SAY filln
  95. ENDCASE
  96. STORE 0 TO mcount
  97. DO WHILE mcount <= 25
  98.    STORE mcount + 1 TO mcount
  99. ENDDO
  100. @ 5,32 SAY ' p S         '
  101. STORE 0 TO mcount
  102. DO WHILE mcount <= 25
  103.    STORE mcount + 1 TO mcount
  104. ENDDO
  105. @ 5,32 SAY ' p S S       '
  106. STORE 0 TO mcount
  107. DO WHILE mcount <= 25
  108.    STORE mcount + 1 TO mcount
  109. ENDDO
  110. @ 5,32 SAY ' p S S S     '
  111. STORE 0 TO mcount
  112. DO WHILE mcount <= 25
  113.    STORE mcount + 1 TO mcount
  114. ENDDO
  115. @ 5,32 SAY ' p S S S t ! '
  116. STORE 0 TO mcount
  117. DO WHILE mcount <= 25
  118.    STORE mcount + 1 TO mcount
  119. ENDDO
  120. IF gmodel = 'Z' .OR. gmodel = 'I'
  121.    @ 10,23 SAY rvideo + ' A SUSPENSE MANAGEMENT PROGRAM ' + nvideo
  122.    @ 11,25 SAY rvideo + ' Version 2.0, 15 June 1986 ' + nvideo
  123.    @ 12,31 SAY rvideo + ' By ANGSC/DOSC ' + nvideo
  124.    @ 15,30 SAY rvideo + ' Maj Jim McMurry ' + nvideo
  125.    @ 16,32 SAY rvideo + ' AV 273-8303 ' + nvideo
  126. ELSE
  127.    @ 10,23 SAY ' A SUSPENSE MANAGEMENT PROGRAM'
  128.    @ 11,25 SAY ' Version 2.0, 15 June 1986'
  129.    @ 12,31 SAY ' By ANGSC/DOSC'
  130.    @ 15,30 SAY ' Maj Jim McMurry'
  131.    @ 16,32 SAY ' AV 273-8303'
  132. RELEASE col, heading, rvideo, nvideo, topln, filln, btmln, mcount, grafon
  133. RELEASE grafoff, vert
  134. RETURN
  135. * EOF PSMENU.PRG]
  136.  
  137.